home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d12 / vol6n19.arc / SHOWVECT.SCR < prev    next >
Text File  |  1987-10-31  |  719b  |  36 lines
  1. N SHOWVECT.COM
  2. A 100
  3. MOV    AH,35    ;get interrupt vector in es & bx
  4. MOV    AL,24    ;for Int 24h
  5. INT    21    ; thru DOS
  6. MOV    SI,BX    ;save offset in SI
  7. MOV    AX,ES    ;put segment in AX
  8. CALL    0119    ;write to screen
  9. MOV    AH,02    ;write a
  10. MOV    DL,3A    ; ':' char
  11. INT    21    ; thru DOS
  12. MOV    AX,SI    ;put offset in AX
  13. CALL    0119    ;write to screen
  14. RET        ;near return to DOS
  15. MOV    BX,AX    ;HEX4PRN - write AX to screen
  16. MOV    CL,04    ;use for shift count
  17. MOV    CH,04    ;number of digits to print
  18. ROL    BX,CL    ;print high digit first
  19. MOV    AL,BL
  20. AND    AL,0F    ;lower 4 bits only
  21. ADD    AL,90    ;convert AL to ASCII
  22. DAA    
  23. ADC    AL,40
  24. DAA    
  25. MOV    DL,AL    ;put char in DL
  26. MOV    AH,02    ;write DL to CON
  27. INT    21    ; thru DOS
  28. DEC    CH    ;char counter
  29. JNZ    011F    ;loop
  30. RET
  31.  
  32. R CX
  33. 36
  34. W
  35. Q
  36.